10 CLS
20 SCREEN 1:KEY OFF
30 OUT 980,2 : OUT 981,43
40 FOR E=1 TO 600:PSET ((RND*320),RND*200),1
50 NEXT E
60 LOCATE 15,1
70 CIRCLE (160,100),60,1
80 PAINT (160,51),1,1
90 FOR R=100 TO 155 STEP 1
100 C=(R-99)/13
110 CIRCLE(160,100),R,C,2.2-(R-100)/174,6.28,1/4
120 CIRCLE (160,100),R,C,0,1+(R-100)/170-.05,1/4
130 NEXT R
140 DIM B(5000):GET (0,50)-(319,150),B
145 LINE (0,0)-(30,30),0,BF
150 CIRCLE (20,20),10,1
160 PAINT (20,20),3,1
170 DIM A(40)
180 CIRCLE (300,10),7,2:PAINT (300,10),2,2
190 GET (9,9)-(30,30),A
200 CIRCLE (20,20),10,0
210 FOR T=1 TO 295  STEP 3
220 PUT (X,Y),A,XOR:FOR U=1 TO 25:NEXT U
230 Q=X:W=Y
240 X=T:Y=50-SIN(T/96)*32
250 PUT (Q,W),A,XOR
260 NEXT T
270 FOR T=1 TO 2500:NEXT T
280 FOR T=295 TO 1 STEP -3
290 PUT (X,Y),A,XOR:FOR U=1 TO 25:NEXT U
300 Q=X:W=Y
310 X=T:Y=140+SIN(T/96)*32
320 PUT (Q,W),A,XOR
330 NEXT T:FOR T=1 TO 2500:NEXT:GOTO 210
